home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Information / WebSites / Wirenet / files / Dashboard2.lha / Dashboard2 / AmiTCP / bin / GetStatus < prev    next >
Text File  |  1998-03-27  |  529b  |  25 lines
  1. /*
  2. $VER: GetStatus 2.0 (26.3.98)
  3.  
  4. Get status from U-Net and display if information has changed
  5. */
  6.  
  7. options results
  8. address command
  9.  
  10. /* ;;;Change these if you need to */
  11. StatusFile = 'S:U-Net.Status'
  12. Fingercmd  = 'finger'
  13. Window     = 'CON:0/0/615/200/Status/AUTO/CLOSE/WAIT/INACTIVE'
  14. Server     = 'status@u-net.net'
  15. ;;;
  16. /* ;;;Don't change these */
  17. OldSize = subword(statef(StatusFile),2,1)
  18. FingerCmd Server '>'StatusFile
  19. NewSize = subword(statef(StatusFile),2,1)
  20.  
  21. if NewSize ~= OldSize then 'Type' StatusFile '>'Window
  22. ;;;
  23. exit
  24.  
  25.